Top 10k strings from Spectrum Home Accounts (1984)(Gemini Marketing).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 ;i;" - ";a$:
   2 ;"Save the current data first?":
   1 z=z+a(j,i,1
   1 t=t+a(j,i,2
   1 t$>99999.99
   1 t$=t$+"00"
   1 t$=t$+"0":
   1 t$=t$+".00":
   1 t$=t$+" ":
   1 t$=t$+"   ":
   1 t$=" "+t$:
   1 m(nt)=-m(nt):
   1 m$="12345678":
   1 m$="12345":
   1 i$=i$+"0.":
   1 i$="16100220":
   1 i$="16040421":
   1 i$="1510091 ":
   1 i$="1410061 ":
   1 i$="14080830":
   1 i$="1406081 ":
   1 i$="14040421":
   1 i$="13060220":
   1 i$="13050220":
   1 i$="1206101 ":
   1 i$="11"+a$+"083":
   1 a(m,i,z)>0
   1 a(m,i,z)=0
   1 a(m,i,z)<1
   1 a(j,i,z)=a(m,i,z):
   1 Which heading?":
   1 Processing
   1 Press any key to continue
   1 Press any key for menu
   1 Plot for ";h$(h):
   1 Mortgage Electric Gas      Oil      Food     Motoring H/keepingHolidays Misc.    
   1 Is this correct?
   1 HOMACC    8$
   1 HOMACC    8
   1 Enter Option?":
   1 Enter Option?
   1 Enter Option":
   1 Change Headings
   1 Budget Summary - ";a$;
   1 Bank Summary
   1 Bank  Menu
   1 ;s;" - ";h$(s):
   1 ;a(m,i,z):
   1 ;"Version (9/84)":
   1 ;"Tel (0395) 265165"
   1 ;"Spectrum Home accounts":
   1 ;"Payee:":
   1 ;"Old heading:";h$(v);
   1 ;"New heading:":
   1 ;"New balance = ";t$:
   1 ;"LOADING PROGRAM .. PLEASE WAIT"
   1 ;"Insert data tape, then press anykey.":
   1 ;"Exmouth";
   1 ;"Enter new date:":
   1 ;"Enter month number, or 13 for   year to date:":
   1 ;"Enter filename-":
   1 ;"Enter Month?":
   1 ;"England";
   1 ;"Cheque#:":
   1 ;"Balance = 
   1 ;"Are you sure?":
   1 ;"Amount:":
   1 ;"21, Dinan Way Trading Estate";
   1 ;"2. Previous Transactions on Tape";
   1 ;"1. Current Transactions";
   1 ;"* No more Room *":
   1 ;" Save to Microdrive or Cassette ":
   1 ;"      ":
   1 ;"         ";:
   1 1010Gemini        1110Jones   1234561110Smith   123457                                    
   1 ,"Write File",4000
   1 ,"View Budget",1500
   1 ,"Start New File",4200
   1 ,"Plot Monthly Actuals",2500
   1 ,"Exit to Main Menu",3900
   1 ,"Exit Program",4500
   1 ,"Enter Payment",3200
   1 ,"Change Headings",5000
   1 ,"Carry Forward Balances",3600
   1 ,"Banking Routines",3000
   1 ,"Alter Budget Estimates",1000
   1 ,"Alter Budget Actuals",2000
   1 ,"Account Summary",3400
   1 *(z<t)+(z=t)
   1 )+"B/F     ":
   1 (a(m,i,z)*100
   1 "Mortgage","Electric","Gas","Oil","Food","Motoring","H/keeping","Holidays","Misc.","Legal","Medical","Schooling","Clothing","H.P.","Papers","Holidays","Subs","Computing"
   1 "Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec","Tot"
   1 "Enter Credit",3200
   1 " ";x$(i,1
   1  Main Menu 
   1  Heading      Estimate  Actual  ":
   1  Date  Payee    Amount  Cheque  
   1  1984 Gemini Marketing Ltd.":
   1   1984 Gemini Marketing Ltd"